home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / REMLO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  534b  |  19 lines
  1. 5  REM     REMLO   MAIN REMINDER MENU
  2. 10 D$ =  CHR$(4)
  3. 20  PRINT D$"NOMON C,I,O"
  4. 30  TEXT : HOME 
  5. 40  VTAB 6: PRINT  TAB( 15);"OPTIONS ARE"
  6. 50  VTAB 10
  7. 60  FOR I = 1 TO 3
  8. 70  READ A$(I): PRINT  TAB( 5);I;"  ";A$(I): PRINT 
  9. 80  NEXT I
  10. 90  VTAB 22
  11. 100  INPUT "CHOOSE 1,2 OR 3 ";N
  12. 110  IF  INT(N) < >N  OR N <1  OR N >3 GOTO 100
  13. 120  IF N = 1 GOTO 160
  14. 130  IF N = 2 GOTO 170
  15. 138  GOTO 999
  16. 160  PRINT D$"RUN REMFM"
  17. 170  PRINT D$"RUN REMPRT"
  18. 900  DATA  "ADD,CHANGE,DELETE REMINDERS","PRINT REMINDERS (DAILY OR ALL)","QUIT"
  19. 999  HOME : END